<script>on mouseUpput return & "The Merits of Scouting:" into prompt -- Γêåget showList(MeritBadgeList(),comma,prompt,true,"OK,Cancel,Help^") -- Γêåif line 1 of it is "Cancel" then exit mouseUpif line 1 of it is "Help" thengo cd "Help"exit mouseUPend ifend mouseUp</script>
<script>on mouseUpglobal mbChangedput word 2 of clickline() into lineNumberput "no" into mbChangedif character 5 of line lineNumber of fld "MeritBadges" is " " thenif fld MBCount is empty thenput "0 Completed MeritBadges / 0 from Eagle list" into ¬fld MBCountend ifput return & "Record this MB for which rank?:" into prompt -- ∆get showList(highRank(),comma,prompt,true,"OK,Cancel,Help^",Unknown) -- ∆evalitput howToMark(line 2 of it) into markif line 1 of it is "OK" thenput mark into character 5 of line lineNumber of fld "MeritBadges"add 1 to word 1 of fld MBCountput "Yes" into mbChangedif line lineNumber of fld "MeritBadges" contains "*" thenadd 1 to word 5 of fld MBCountend ifask "Awarded date? i.e. 11/18/91"if it is empty then exit mouseUplock Screenput length(it) into howManyrepeat for howMany -1delete character 9 of line lineNumber of fld "MeritBadges"end repeatput it into char 9 of line lineNumber of fld "MeritBadges"end ifelseput return & "Change the Rank indicator?" into prompt -- ∆get showList(highRank(),comma,prompt,true,"OK,Delete,Cancel,Help^",Eagle) -- ∆evalitif line 1 of it is "OK" thenput howToMark(line 2 of it) into markput mark into character 5 of line lineNumber of fld "MeritBadges"exit mouseUpend ifif line 1 of it is "Delete" thenanswer "Should I delete the entry?" with "Cancel" or "Yes"end ifevalitif it is "Yes" thenlock Screenput "Yes" into mbChangedsubtract 1 from word 1 of fld MBCount -- adjust countsif line lineNumber of fld "MeritBadges" contains "*" thensubtract 1 from word 5 of fld MBCountend ifput " " into character 5 to 18 of line lineNumber of ¬fld "MeritBadges"put Fillstr(space,14) into character 5 of line lineNumber of ¬fld "MeritBadges"end ifend ifend mouseUpfunction howToMark line2if line2 contains 1 thenput "F" into markend ifif line2 contains 2 thenput "S" into markend ifif line2 contains 3 thenput "L" into markend ifif line2 contains 4 thenput "E" into markend ifif line2 contains 5 thenput "B" into markend ifif line2 contains 6 thenput "G" into markend ifif line2 contains 7 thenput "P" into markend ifif line2 contains 8 thenput "•" into markend ifreturn markend howToMark</script>
</part>
<part>
<id>79</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>90</left>
<top>38</top>
<right>410</right>
<bottom>55</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>MBCount</name>
<script></script>
</part>
<part>
<id>78</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>350</left>
<top>8</top>
<right>450</right>
<bottom>30</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Update Count</name>
<script>on mouseUpset cursor to watchupdateCountend mouseUp</script>
</part>
<part>
<id>86</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>19</left>
<top>8</top>
<right>119</right>
<bottom>30</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Unlock Text</name>
<script>on mouseUpif the name of the target contains "Unlock Text" thenunLockTextelselockTextend ifend mouseUp</script>
<script>on mouseUpglobal tempBadgesif fld "MeritBadges" is empty thenput MeritBadgeList() into MBListlock screenrepeat with i = 1 to the number of items in MBListset cursor to busyput the number of words in item i of MBList into wordCntput word 1 of item i of MBList && " " && ¬word 2 to wordCnt of item i of MBList & return ¬after fld "MeritBadges"end repeatput "end end" after fld "MeritBadges"else if fld "MeritBadges" is not empty and ¬tempBadges is not empty thenMBRestoresetscroll "fld MeritBadges",0end ifend mouseUp</script>
</part>
<part>
<id>115</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>0</left>
<top>217</top>
<right>64</right>
<bottom>242</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Print</name>
<script>on mouseUpMBPrintend mouseUp</script>
</part>
<part>
<id>117</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>0</left>
<top>193</top>
<right>64</right>
<bottom>218</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>List</name>
<script>function listQsreturn "All,Not Assigned,First Class,Star,Life,Eagle,Bronze Palm,Silver Palm,Gold Palm,Not Earned,Eagle Required"end listQson mouseUpglobal tempBadgesput "Display list of earned Merit Badges for which rank?" into promptget showList(listQs(),comma,prompt,true,"OK,Cancel,Help^","All") -- ∆if line 1 of it is "Cancel" then exit mouseUpif line 1 of it is "Help" thengo cd "Help"exit mouseUPend ifput item 1 of line 2 of it into slectionsetscroll "fld meritBadges",0put fld meritBadges into tempBadgesif slection is "All" thenput fld name && the short date && return && return && ¬return into fld meritBadgeselse if slection is "First Class" thenput fld name && the short date && return && return && ¬"First Class Merit Badges earned" && return && ¬"-------------------------------" && return into fld meritBadgeselse if slection is "Star" thenput fld name && the short date && return && return && ¬"Star Merit Badges earned" && return && ¬"------------------------" && return into fld meritBadgeselse if slection is "Life" thenput fld name && the short date && return && return && ¬"Life Merit Badges earned" && return && ¬"------------------------" && return into fld meritBadgeselse if slection is "Eagle" thenput fld name && the short date && return && return && ¬"Eagle Merit Badges earned" && return && ¬"-------------------------" && return into fld meritBadgeselse if slection is "Bronze Palm" thenput fld name && the short date && return && return && ¬"Bronze Palm Merit Badges earned" && return && ¬"-------------------------------" && return into fld meritBadgeselse if slection is "Silver Palm" thenput fld name && the short date && return && return && ¬"Silver Palm Merit Badges earned" && return && ¬"-------------------------------" && return into fld meritBadgeselse if slection is "Gold Palm" thenput fld name && the short date && return && return && ¬"Gold Palm Merit Badges earned" && return && ¬"-----------------------------" && return into fld meritBadgeselse if slection is "Not Earned" thenput fld name && the short date && return && return && ¬"Merit Badges available to work on" && return && ¬"---------------------------------" && return into fld meritBadgeselse if slection is "Not Assigned" thenput fld name && the short date && return && return && ¬"Merit Badges not assigned to a badge or palm" && return && ¬"--------------------------------------------" && return into fld meritBadgeselse if slection is "Eagle Required" thenput fld name && the short date && return && return && ¬"Eagle Required Merit Badges & Status" && return && ¬"------------------------------------" && return into fld meritBadgesend ifrepeat with i = 1 to the number of lines in tempBadgesset cursor to busyget line i of tempBadgesif slection is "All" thenif char 5 of it is not " " thenput it && return after fld meritBadgesend ifelse if slection is "First Class" thenif char 5 of it is "F" thenput it && return after fld meritBadgesend ifelse if slection is "Star" thenif char 5 of it is "S" thenput it && return after fld meritBadgesend ifelse if slection is "Life" thenif char 5 of it is "L" thenput it && return after fld meritBadgesend ifelse if slection is "Eagle" thenif char 5 of it is "E" thenput it && return after fld meritBadgesend ifelse if slection is "Bronze Palm" thenif char 5 of it is "B" thenput it && return after fld meritBadgesend ifelse if slection is "Silver Palm" thenif char 5 of it is "P" thenput it && return after fld meritBadgesend ifelse if slection is "Gold Palm" thenif char 5 of it is "G" thenput it && return after fld meritBadgesend ifelse if slection is "Not Earned" thenif char 5 of it is " " thenput it && return after fld meritBadgesend ifelse if slection is "Not Assigned" thenif char 5 of it is "•" thenput it && return after fld meritBadgesend ifelse if slection is "Eagle Required" thenif it contains "*" thenput it && return after fld meritBadgesend ifend ifend repeatput return && "* indicates Eagle required" && return ¬&& fld mbCount after fld meritBadgesanswer "Print now?" with "Yes" or "No"if it is "Yes" thenMBPrintend ifexit mouseUpend mouseUp</script>
</part>
<part>
<id>118</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>0</left>
<top>35</top>
<right>82</right>
<bottom>53</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>Plan</name>
<script>on mouseUpif me contains "New Plan" thenput "Old Plan" into meelseput "New Plan" into meend ifend mouseUp</script>